From: Jan D. Date: Sun, 21 Nov 2010 18:29:08 +0000 (+0100) Subject: * tool-bar.el (tool-bar-setup): Remove save as, print and customize. X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~5579 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=87b9081cf1953b0ff82d612c4bc0078428ffa239;p=emacs.git * tool-bar.el (tool-bar-setup): Remove save as, print and customize. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7aefe8d923a..873b2939868 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2010-11-21 Jan Djärv + + * tool-bar.el (tool-bar-setup): Remove save as, print and customize. + 2010-11-21 Deniz Dogan * progmodes/python.el (python-font-lock-keywords): Highlight diff --git a/lisp/tool-bar.el b/lisp/tool-bar.el index 4b6fd970d8a..a3292c42046 100644 --- a/lisp/tool-bar.el +++ b/lisp/tool-bar.el @@ -271,11 +271,6 @@ holds a keymap." (not (eq 'special (get major-mode 'mode-class))))) - (tool-bar-add-item-from-menu 'write-file "saveas" nil :vert-only t - :visible '(or buffer-file-name - (not (eq 'special - (get major-mode - 'mode-class))))) (tool-bar-add-item-from-menu 'undo "undo" nil :vert-only t :visible '(not (eq 'special (get major-mode 'mode-class)))) @@ -297,16 +292,12 @@ holds a keymap." ;; than a lambda for Read Mail. ;;(tool-bar-add-item-from-menu 'compose-mail "mail/compose") - (tool-bar-add-item-from-menu 'print-buffer "print" nil :label "Print") ;; tool-bar-add-item-from-menu itself operates on ;; (default-value 'tool-bar-map), but when we don't use that function, ;; we must explicitly operate on the default value. (let ((tool-bar-map (default-value 'tool-bar-map))) - (tool-bar-add-item "preferences" 'customize 'customize - :help "Edit preferences (customize)") - (tool-bar-add-item "help" (lambda () (interactive) (popup-menu menu-bar-help-menu))